﻿<Serializable()> Public MustInherit Class BaseShape

    Dim isSelected As Boolean = False


    'Public plist As New List(Of Drawing.Point) '用于存储状态点
    Public plist As New List(Of Drawing.PointF) '用于存储状态点


    Private p1 As Drawing.Point
    Public Property P1Property() As Drawing.Point
        Get
            Return p1
        End Get
        Set(ByVal value As Drawing.Point)
            p1 = value
        End Set
    End Property
    Private p2 As Drawing.Point
    Public Property P2Property() As Drawing.Point
        Get
            Return p2
        End Get
        Set(ByVal value As Drawing.Point)
            p2 = value
        End Set
    End Property


   

    Public Sub setSelected()
        Me.isSelected = True

    End Sub

    Public Sub unSelected()

        Me.isSelected = False
    End Sub


  






End Class
